package body Managed is

  protected body Config is
    procedure Set(cfg : in Config_Type) is
    begin
      Config := cfg;
    end set;

    function Retrieve return Config_Type is
    begin
      return Config;
    end Retrieve;

    function Repeat return Boolean is
    begin
      return Config.Repeat;
    end Repeat;
  end Config;

end Managed;
